Imports System.Text


Public Class ACColumna
#Region " Variables "

   Private m_ancho As Integer
   Private m_titulo As String
   Private m_nombre As String
   Private m_alineacion As String
   Private m_formato As String

#End Region

#Region " Propiedades "

   Public Property Ancho() As Integer
      Get
         Return m_ancho
      End Get
      Set(ByVal value As Integer)
         m_ancho = value
      End Set
   End Property

   Public Property Titulo() As String
      Get
         Return m_titulo
      End Get
      Set(ByVal value As String)
         m_titulo = value
      End Set
   End Property

   Public Property Nombre() As String
      Get
         Return m_nombre
      End Get
      Set(ByVal value As String)
         m_nombre = value
      End Set
   End Property

   Public Property Alineacion() As String
      Get
         Return m_alineacion
      End Get
      Set(ByVal value As String)
         m_alineacion = value
      End Set
   End Property

   Public Property Formato() As String
      Get
         Return m_formato
      End Get
      Set(ByVal value As String)
         m_formato = value
      End Set
   End Property
#End Region

#Region " Constructores "

   Public Sub New(ByVal x_ancho As Integer, ByVal x_titulo As String, ByVal x_nombre As String)
      m_ancho = x_ancho
      m_titulo = x_titulo
      m_nombre = x_nombre
      m_alineacion = ACAlineacion.Izquierda
      m_formato = ""
   End Sub

   Public Sub New(ByVal x_ancho As Integer, ByVal x_titulo As String, ByVal x_nombre As String, ByVal x_formato As String)
      m_ancho = x_ancho
      m_titulo = x_titulo
      m_nombre = x_nombre
      m_alineacion = ACAlineacion.Izquierda
      m_formato = x_formato
   End Sub

   Public Sub New(ByVal x_ancho As Integer, ByVal x_titulo As String, ByVal x_nombre As String, ByVal x_alineacion As ACAlineacion)
      m_ancho = x_ancho
      m_titulo = x_titulo
      m_nombre = x_nombre
      m_alineacion = x_alineacion
      m_formato = ""
   End Sub

   Public Sub New(ByVal x_ancho As Integer, ByVal x_titulo As String, ByVal x_nombre As String, ByVal x_formato As String, ByVal x_alineacion As ACAlineacion)
      m_ancho = x_ancho
      m_titulo = x_titulo
      m_nombre = x_nombre
      m_alineacion = x_alineacion
      m_formato = x_formato
   End Sub

   Public Sub New(ByVal x_ancho As Integer, ByVal x_nombre As String, ByVal x_alineacion As ACAlineacion)
      m_ancho = x_ancho
      m_titulo = ""
      m_nombre = x_nombre
      m_alineacion = x_alineacion
      m_formato = ""
   End Sub

   Public Sub New(ByVal x_ancho As Integer, ByVal x_nombre As String, ByVal x_alineacion As ACAlineacion, ByVal x_formato As String)
      m_ancho = x_ancho
      m_titulo = ""
      m_nombre = x_nombre
      m_alineacion = x_alineacion
      m_formato = x_formato
   End Sub

#End Region

#Region " Metodos "

#End Region
End Class
